Jak obliczyć różnicę dat [ilość dni, miesięcy, lat]

A wiec oto rozwiazanie:

var
OldDate, Date: TDateTime;
wYear, wYear2, wMonth, wMonth2, wDay, wDay2 : Word;
fYear, fMonth, fDay : Word;
begin
OldDate := Now; // pobieranie dziesiejszej daty
DecodeDate(OldDate, wYear, wMonth, wDay);

Date := StrToDate('01-10-10');
DecodeDate(Date, wYear2, wMonth2, wDay2);

fYear := wYear - wYear2;
fMonth := wMonth - wMonth2;
fDay := wDay - wDay2;
ShowMessage(Format('Różnica dni: %d, miesięcy: %d, lat: %d',
[fDay, fMonth, fYear]));

Innym sposobem (w nowszych wersjach Delphi) jest użycie funkcji:
DaysBeetween, WeeksBeetween, MonthsBeetween, YearsBeetween i jeszcze wielu innych znajdujących się w module DateUtils. [Dryobates]
fYear := YearsBeetween(wYear, wYear2);